home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Shell Folders 4.xpl < prev    next >
Text File  |  2001-11-18  |  3KB  |  81 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="4"
  3. "DATA 1"="Folders (*.*)|*.*"
  4. "COUNT"="4"
  5. "UIPATH 1"="System\File System\Folders\System"
  6. "NAME"="Windows Folders #3"
  7. ' "OSVERSION"="01011"
  8. "VERSION"="2.2"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="PrintHood"
  11. "TEXT 2"="Recent Files"
  12. "TEXT 3"="ShellNew"
  13. "TEXT 4"="Send To Menu"
  14. "DESCRIPTION 1"="Changing these items will allow you to determine where some of Windows' files are stored."
  15. "DESCRIPTION 2"="This value may be set to any drive on your system, however, it is recommended that you use only hard disk drives rather than removable ones such as Zip, Jaz, floppy, CD and so on."
  16. "DESCRIPTION 3"="Only use a network drive for this option if the hosting [server of the network drive] is always on."
  17. "AUTHOR"="Xteq Systems (CptSiskoX & Neil R. Turner)"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="Download Windows 2000 tips from AXCEL216 http://user.aol.com/axcel216/"
  21. "COMMENT 2"="And visit my site (CptSiskoX) at http://members.fortuncity.com/computingx/ "
  22. "COMMENT 3"="Check out the LockerGnome newsgroups news://news.lockergnome.com/ for more cool tips."
  23.  
  24. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
  25. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\"
  26. sV1="PrintHood"
  27. sV2="Recent"
  28. sV3="ShellNew"
  29. sV4="SendTo"
  30.  
  31. Sub Plugin_Initialize 
  32.  s=RegReadValue(sP1&sV1)
  33.  Call SetUIElement(1,s)
  34.  
  35.  s=RegReadValue(sP1&sV2)
  36.  Call SetUIElement(2,s)
  37.  
  38.  s=RegReadValue(sP1&sV3)
  39.  Call SetUIElement(3,s)
  40.  
  41.  s=RegReadValue(sP1&sV4)
  42.  Call SetUIElement(4,s)
  43. End Sub
  44.  
  45. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  46.  w=GetWinDir
  47.  
  48.  s=GetUIElement(1)
  49.  Call RegWriteValue(sP1&sV1,s,1)
  50.  Call RegWriteValue(sP2&sV1,s,1)
  51.  
  52.  s=GetUIElement(2)
  53.  Call RegWriteValue(sP1&sV2,s,1)
  54.  Call RegWriteValue(sP2&sV2,s,1)
  55.  
  56.  s=GetUIElement(3)
  57.  if len(s)>0 then
  58.   Call RegWriteValue(sP1&sV3,s,1)
  59.   Call RegWriteValue(sP2&sV3,s,1)
  60.  else
  61.   Call RegWriteValue(sP1&sV3,w & "ShellNew",1)
  62.   Call RegWriteValue(sP2&sV3,w & "ShellNew",1)
  63.  end if
  64.  
  65.  s=GetUIElement(4)
  66.  if len(s)>0 then
  67.   Call RegWriteValue(sP1&sV4,s,1)
  68.   Call RegWriteValue(sP2&sV4,s,1)
  69.  else
  70.   Call RegWriteValue(sP1&sV4,w & "SendTo",1)
  71.   Call RegWriteValue(sP2&sV4,w & "SendTo",1)
  72.  end if
  73.  
  74.  Call MsgWarning("Remember that you need to copy the files from their old directories to the new ones you just set!!")
  75.  Call Logoff() 'Required because of ActiveDestop and other stuff
  76. End Sub
  77.  
  78. Sub Plugin_Terminate 
  79. End Sub
  80.  
  81.